Số chẵn:

Var i,n,S: longint;

Begin

Readln(n);

For i:=1 to n do 

If i mod 2 = 0 then S:=S+i

Write(S);

Readln

End.

Số lẻ:

Var i,n,S: longint;

Begin

Readln(n);

For i:=1 to n do 

If i mod 2 = 1 then S:=S+i

Write(S);

Readln

End.

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t1,t2;

int main()

{

cin>>n;

t1=0;

t2=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0) t1+=x;

else t2+=x;

}

cout<<t1<<" "<<t2;

return 0;

}

Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?

program TichSoChiaHetCho3;

var

      n, i, tich: integer;

      a: array[1..100] of integer;

begin

      tich := 1;

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] mod 3 = 0 then

            begin

                  tich := tich * a[i];

            end;

      end;

      writeln('Tich cac phan tu chia het cho 3 la: ', tich);

      readln;

end.
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?

program DemSoChanTrongDay;

var

      n, i, tich: integer;

      a: array[1..100] of integer;

begin

      dem := 0;

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] mod 2 = 0 then

            begin

                  dem := dem + 1;

            end;

      end;

      writeln('So phan tu chan trong day la: ', dem);

      readln;

end.
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?

program HienThiSoNhoHon20;

var

      n, i: integer;

      a: array[1..100] of integer;

begin

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] <= 20 then

            begin

                  writeln(a[i]);

            end;

      end;

      readln;

end.

Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if (n mod 2<>0) then 

write(i:2);

readln;

end.

Câu 3:

Var i,n:integer:

Begin

Write('n = ');readln(n);

Write('Cac uoc cua n la ');

For i:=1 to n do

If n mod i = 0 then write(i:8);

Readln

End.

Câu 4

Var i,n:integer:

Begin

Write('n = ');readln(n);

Write('Cac so le nho hon n la ');

For i:=1 to n - 1 do

If i mod 2 <> 0 then write(i:8);

Readln

End.

tự làm là nhanh nhất

ai đòng ý xin 1 ý kiến

1.

program tinhtong;

uses crt;

var s,i,n:integer;

begin

s:=0;

for i:=1 to 10 do s:=s+1;

writeln ('tong cua s=',s);

readln

end.

2.

program tinhtong;

uses crt;

var i,L,s:integer;

begin

write('nhap gia tri L='); readln(L);

s:=0;

for i:=1 to L do s:=s+1;

writeln('tong cua s=',s);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long dem,x,n,i,t;

int main()

{

cin>>n;

t=0;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0)

{

dem++;

t+=x;

}

}

cout<<dem<<" "<<t;

return 0;

}

Var s,n,i,dem,so:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i);readln(so);

If so mod 2 = 0 then

Begin

dem:=dem+1;

s:=s+so;

End;

End;

Writeln('Co ',dem,' so chan');

Write('Tong cac so chan la ',s);

Readln;

End.